n 



LABEL OOOCOOOOOLINE OOIOOOOO'PCGMH I l(L UB JEC T/KEYwORD WITH XALGOL LIBRARY 



xalgul /object 



w 



MC E ER teg bQua MAM 




9 

10 

11 

12 
13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 ~ 

26 

27 

28 

29 

30 

31 T 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

50 

51 ■'■ 

52 

53 

54 

55 

56 



BURROUGHS B-b700 XALCiQL COMPILER MARK XV, 3,00 



SUNDAY* Ol/uCi/00» U28 a m * 



rV 



3 
4 

5 
6 
I 
8 

9 
10 
11 
12 
13) 
M 
'•j 
16 
I7 : 
|18 
19 

I 21 
22 

23 

24 _ 
25 

26 

27 

28 

29 

30 
31 
32 

33 

34 

35 

36 

Si" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

61 

52 

53 

54 

55 

56 

67 



OBJECT /KEYWORD 

sigtsstlKE; IIS 



■ »set. single; list 



*SET KEYWDROSCAN 

BEGIN ^PROGRAM TU READ AN D PRI NT A DISK SUURCE FILE 



0000 



C 
-C- 



0000 

oooo 



LABEL ENDUFFILE; 
it WOWEE 7.0WEE - — 



FItE IN SOURCEFILE DISK SERIAL 

FILE OUT PRINTER 1 (9*17-) 
—EC I N T£R_ __SA__ ___?_-______ E2__. Eli-. 

REAL IS 

DEFINE TIL = STEH i UNTIL*; 
_E£jJil_ J_£_ W U R __J-EJ-0--t_JU- __ 

DEFINE KEYWORDFIHaTLETTER x »P"«; 

DEFINE DUMPHNECDUMPLINE1) * 

BEGIN 



9 BUFFERS FOR THE PRINTER AND DISK FILES 



Start of segment * 

c 

c. 



********* 

0000 
QCQO 



"$0URCE"/"FILE H 

* 



C9, 30); 



C 
C 



0000 
0003 
0007 



_J_ 



c 

c 
-c- 



0007 
0007 
QUO 7 



c 
c 



0007 
0007 



SSET OMIT = NOT KEYrtORDSCAN 

LABEL SCAN1T; 
PJj_e±J__ULi_JJ__L LQJUM£LlH£ijL 6 1L 

I «• ao-7; 



e ooo 7 



c 
c 



0007 
000 7 
0007 



SCAN IT I 
SCAN PltP l 



f or x » i until * keywqrpfirstletter; 



IF IXO THEN IF DELTACP»P.U<80-7 THEN IF REALCPl»7) » 

' KEYWORD THEN 
BEGIN . 



C 

c 

___ 



0007 
0007 
0007 



c 
c 



0007 
0007 
0007 



SPOP OMIT 

WRITECPRINTER, 10* 
-.-EI. OMIT __J_ _I K E Y nURDSCAfl 

pi •• Pi + l; 
go tu scanit; 
end; 



DUMPLINEU*} ); 



c 
c 



0007 
0007 
0007 



c 
c 



0007 
0007 
0007 



SPOP OMIT 

END** 
ARR AY C A R DCO 



______ 



■C 
C 



0007 
0007 
0007 



ARRAY LINE1* LlNt2* 
WHILE TRUE DO 
d _ GI N , 



LINE3 [0 » 9j; 



C 

C 



READC80URCEFILE* 30» CARDC O UENDQFFIIE J J 

PCARD * P0INTS8<CARD»fl); 

REPLA.E,P0lNTMCLlNEa*6 ) §Y PCA RO+80 FOR 10 WQROSi 



0008 
0011 
OUU 



REPLACE PUINT_KC|_INE3*63 HY PCARD+160 FOR 10 WORDS; 
DUMpLlNECCARD); DUMpL INECL INE2 ) ; UUMpL INE(L INE3 ) ; 



C 

c 
_c_ 



0011 
0017 
OOl fl 



C 0024 

C 0029 

-SlAJJ OF SEGMENT ********** 



3 IS 25 LONG* NEXT S£G 2 
START OF SEGMENT ********** « 
^l_l_ 25 LONG» N EXT, SEG 



ENDi 



START OF SEGMENT * 
5 IS 25 LOUG. 
£ 



********* 
NEXT Seg 
003 2 



b 

2 



45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ( 

6? 



ENDOFFILEI 
END. 



C 

C 

2 I S _. L QN Qi 



0032 
0033 
NEXT SrQ 



¥ 



9 • 



*r- 



o 
Q 



2 

4 

5 

r 
/ 

8 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 



30 
31 " 

33 
34 

I * 

36 

37 " 
) 38 

39 

40 
I 41 

42 

43 
I 44 

«5 . 

♦6 

47 

(8 

49 

50 

51 

52 

53 

54 

55 

56 

521 



JOiMa£JL.riF....EBR.QfiS._D£I££ltQ_.SL U^__C.U«£JLLAIliM_.I.;uit 19 SFrriNn$, 

PRT SIZE * 46; TOTAL SEGMENT SUE = 182 nQROs' DISK SIZE « 

"EST"! MAT ED CURE ~~S"f ORAGlf R£GU IRED =" 2'dTs rtUrtQS " " 

.-LSJJ.MATED AUXjJ.URY^^^^HjEj^Ri^ *__ _ HgrtDS. __ 

NUMBER OF CARD-IMAGES PROCESSED * 37, 



1 
15 



IS 2 LONG* NEXT bEG 
IS 69 LONG, NEXT bEG 



14 SEGS/ NO. PGM, SUS 



15 



I 

i 



2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 4 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 I 

36 

37 

38 ( 

39 

40 

41 I 

42 

43 



• 



45 

46 

47 

48 

49 

50 

51 

52 

53 I 

54 

56 

3 



ffl 



• ^ 



LABEL OOOOOOOOOt.lNE OOlOOOOO VCOaP I Lt Gtf jECT/KLY*GRD WlTh XAuGOL LIBRARY 



xalgol /object 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 

11 

12 

,3 T 

1 41 

.B|_ 

Ifil 

47 

18 

19" 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

" _ 
34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

4? 

W 

49 

50 

51 . 

52 

S3 

54 

55 

56 



• • 



LABEL O0O0OOO0OPRIMER0O1OOOOOCC E.X OBJECT /KEr^UROiF ILE SUUHC£F"ILE«5YMbQL/McP>ENU«- 



OBJECT /KEYWORD 



7' 

3 L 

4 

■5 
6 
/ 
8 
S 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

30 

31 " 

32 

13 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

d. 




P;lo<l a/ m?s 



21 

22 

23 ( 

24 

2E 

26 I 

27 

28 

29 ( 

30 

31 

32 I 

33 

34 

3b I 

36 

37 

38 { 

39 

40 

41* 

42 

43 

44 I 



17 
18 



23 
24 
26 
?6 
27 
28 
29 
30 
31 



34 

SS 

c- 



41 
42 



46 
47 
« 
49 
50 
51 
S2 
53 
54 
55 
56 
f7 



SAVE INTEGER PROCEDURE GETSpAC£(S lZt> T YpE# 3 aVEF ) it 
SAVE REAL PROCEDURE W AlT JO (lOD* M ASK, U ) ; * 

5.A1E PJ_Q_EI_JJ_E JL_J__JJJLCJiaLi S I Z E « I) I S K U~ ._ ...— - — 

PROCEDURE ERRORFIXERCTYPEW VALUE TY?E> REAL TYPE* FORWARD* 

SAVE PROCEOURE SNOOZE(PRYR, ADDRESS, NA*K ) ; VALUE PRYR, ADDRESS, MASK/ 

PRO CEDURE ENTERSYSMTRfN?;, VALUE ___- J__ L NJ FQ ii_A____ 



00014000 

00018000 
0QU191 0Q 

00019500 
00020000 
. 0.00* 47 00- 



SAVE PROCEDURE LOGT I MI NG( m! X* B ) ; VA t UE MlX,B; REAL MlX>B; FORWARD;* 
SAVE PROCEDURE ESPBITJ COMMENT PRESENCE BIT ROUTINE FOR ESP SEGMENTS * 
STREAM PWGCE DliHE MdtfFC N)'»Wur<0_ F ROM" C HERE )" TU" ( THERE ) i * , 



000*5000 
* 000*5900 

aaojizom. 



PROCEDURE STOPM(B); VALUE B,' BOOLEAN 8i FORWARD* 
SAVE PROCEDURE FORGETSP ACE(LOC)i * 
PROCEDURE WQR KSETCNH VALUE NJ, REAL Ml FORWARD ; 



00089100 
00090000 
Q 134125 



SAVE INTEGER PROCEDURE AUX I LI ARYSPACEC SUE ) J 
SAVE PROCEDURE FQRGETAUXI LI ARYSPACE C SI ZE, iOC)> 
SAVE P ROCEDURE LQGT IM lNGCM lX'B j / VALUE HIX»6; REA L 



mi.x>b; 



O0U5700 
00135800 
001O5Q5Q. 



REQUESTED ADDRESS IS UNLOCKED, THE PROCEOURE FI NDFREEADDRESS 
SAVE REAL PROCEDURE TWOCN)J VALUE Ni INTEGER Hi 

P R C Z D U R E I Q R G E J U S £ RDlSK(A _1_JLAJ__E___ j;_R£AL_A * LJFOR WARO;* 

REAL PROCEDURE PETUSERDI SK< N> T )i VALUE NjT/REAl iN'T'FQfiWARD ; 

SAVE PROCEDURE DT; FORWARD'S 

PR U CE0.URE . JJ S.E.R D I S _ S P E C _i_l_CA5-.C.„Bji 1U_JLLV. A L, LI E _jl4_ E A L JUE-Ji 

SAVE PROCEDURE DISKRTN ( SEGNO, SIZEJi 
PROCEDURE FORGETESPDlSKCSEG);vALUE SEGIREAL SEGiFORwARD; 
S_ VJ_ _ INI£G£fi - P.RQ£f DUfiE- D_LS-HSPAC_£lNW QH q S / P _1_UXj AuX.3_* 

PROCEDURE status;* 
PROCEDURE INTERRUPT(TYPE);VALUE TYPE/REAL TYPE; FORWARD; 
RE.AL-. PRU C.EO.UEE-.. FJJtD-QUlP-LULC-M-I-0.t-EXU^TJt-££.4£ 8 M $x ilEXL* C A TE .» C YC 1,F , K I NO ) . 
REAL PROCEDURE F INDI NPUTC MlD#F10#REEL,CDA tE,C YClE, COBOL *UL# OF, MODERN) 
PROCEDURE STARTIMING(FN'U); VALUE FN#Ui REAL FN»U; FORWARD;* 

P ROCEDURE Fll , EOFEN(X.A)l VALUE X,AJ TNTEGER X,A; FORWARD; 



00296380 
00306000 
00316000 



00316100 

00317000 

.j_3JL_lJ_. 



00363000 
00364000 

■00 3650 OQ- 



00369000 
003/Q50Q 
003/ 1000 

; 003/4000 
00377000 

00379000 



save procedure savecpenca); value a; real a; 
procedure mixprint(q); value q' real q; forward; 
procedure j obmess(mix.q>a,b,c, devalue mIx*_*a,b»c,d; 



00379100 
00379400 
0O_?9ftQ0 



PROCEDURE SETNOTlNUSE£U»RWL)i VALUE U,flWL; REAL U#RWL; FORWARD; 
PROCEDURE FILLBUFFERS(CURREnT#FINAL*COBOL'NR); 
PRQC EO U_ E __R EALFlLEe LOSE(A); VALUE a; REAL A; FORWARD; 



00380000 
00385000 
00389000 



SAVE PROCEDURE F I LECLOSE ( A ); VALUE A; REAL A; 
REAL PROCEDURE Dl SKADDRESSt MID,F I Dm F HBi, A,H, I ); 
PRO CE DUR E _8 LA S JJ Cu); VALUE Uj REAL U' FORWARD/'* 



00389100 

* (SHMJ00390000 

00392000 



REAL PROCEDURE FlLEHEADERC MID#FI0, NHOWS,S UE'BLEN' *LEN> S ) ;* 
PROCEDURE PURGEITCU); VALUE U; INTEGER UJ FORWARD;?! 

oirec torysearch> nsecqnd* and cleanups are the proced ures 

proceoure locker (segment, lock)/ 
procedure selectruncf); value f; real f; forvnarui 
proce d u_r£ controlcaro(A); value a;r£al a; forw ard; * 



00393000 
00397000 
00418 970 



004*2500 
00426700 
004 *7000 



REAL PROCEDURE DI RECTORYSEARCHC A> d» C )■* V ALuE Aj8>C;* 00428000 
PROCEDURE ARTN(A,N); VALUE A,n; ARRAY AC*]; INTEGER N; FORWARD;* 00431000 
SAVE PRO CEDURE D I SK T ntL.C. &_ ) ; VALUF C,S,_; REAL I ; INTEGER C,S,0i* 0O41__0OG- 



PROCEDURE 
PROCEDURE 

-PROCEDU-RE--SPnuTER (MESSAGE, UN ITNQMYPE)? 



SPOUTCMESSAGEJ; 
FILEMESS(I,K»M,F»R^D'CJ; 
-SP0UTER( MESSAGE, UN ITNQMYPE; 



PROCEDURE FILEMESSAGE(I#K,M,F,R,D,C#TYPE); 
PROCEOURE L8MESSCFN#SN* I 1»I2>E* UNIT NO, X>; 

PRQrFHURE TERMINATECMIX)J VALUE MlXi REAL MIXJ F ORWARD; 

SAVE PROCEDURE TERMl NALMESSAGE ( N) ; VALUE n; RErtL N> FCRWARO; 
BOOLEAN PRQCEDUBE SYSTEMF I l£( A,B ); VALUE A,B; REAL A,B; FORWARD; 
■ P RO CEDURE E M T , E ,R SYS FI,UECN)I VAI.JE Hi RFAl Nf FORWARD; 



00450300 

0045H00 

- Q Q 4 _18 QU - 



00452600 
00454000 
0J_4i___J3_L 



PRQCEOURE CQM5 1 HOR WARd; * 
PROCEDURE F ILLS YST ATI FORWARD; 
P RQ CFnURE . 3 AVFa ,T ATISTlC « CFlLE)/ 



00463200 
00463300 
04640 00 



VALUE FILEi RFAL FIl.El FORWARDl 



00469000 

00469100 
QQ 4 . 94 QQ 



• • 



|3 

i- 
4 

s' 

61 
"/ I 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

3D 

34 

35 

30 

37 " 

36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

6Z_ 



PROCEDURE 
PROCEDURE 

EfidOEJlUBE 

PROCEDURE 
PROCEDURE 
P.RI2CXDURE 
PROCEDURE 
PROCEDURE 
__£iiflC£QUfi£ 
PROCEOURE 

PROCEDURE 
-P.ROCEDURL 



psuedolog 
asr; 

C.QM.1.U 
C0M13J 
COMMUNlCA 
CQ.MMU.N.ICA 
LIBRARYL 
LI8RARYZ 
LIBRARXO. 



ENTRYCSfATS); 
FORWARDS 

fjiaktAJiaii...- 

forward;* 
teq; forward; 

.I£JUL_F_Ofl*LAflJUi. 

oad; forward; 
ero; forward; 

WBJi FilRWAKQi. 



VALUE STaTS/REaL STATSi 



00469500 
00474000 
..00-475.0.0.0.. 
004/7000 

00478000 
-Q.Q4Z&5.Q.a.. 



DuMPCQREC 

C0M19; 
C0M23J F 



8>; VALUE 

forward;* 
nRwARn:% 



b; real b; forward; 



00479000 
00479500 

.-ooJb-Oaoac. 

00460100 

00483000 

■ 00487000. 



PROCEDURE 

PROCEDURE 

-SAYE-PROCE 



SAVE PROCE 
PROCEDURE 
..PM.CXU.U.R1. 
PRUCEDURE 
REAL PROCE 
P ROCED URE 



IMTRINSICTABLEBUILOERCFH), 
MESSAGETA8LE8UILDER; FORWARD; 
DURE result; 



DURE PUNTCI); VALUE H HEAL It 
OCWRIT.E(S); VALUE Si REAL $} FORWARD; 
MREAjH5.H_y.AW i__S_-B. EAL-S !___ B AB .D l._ 



00489000 
00491000 

00650000 
00700000 
Ci 701Q QQ.. 



PROCEDURE 

save real 
procedure 



PRUCEDURE 

PROCEDURE 

_PROC_£D_iLBE. 



INQUPT(T) 
DURE WHAT 
SEEKAJLTIO 
S TAT' I ON ME 
PROCEOURE 
ilAlLlCRB 
NlNETEENR 
C0M36; FO 

MAR.KiF.fliI 



; value t; real t; 

5UPtSTA*MlX*FUNC#ARA 
N ( g T A^MJ % r£ UHCjt iJJQ.ll 



FGKWARL* 

e>; 



SSAGEWRITER(V); VAlU 

get(tusta); value t 

>S); VALUE H D*S L MA 



EAOER(b); VALUE Si R 

rwaRo; t type 19 iu 



E v; real v; forward; 
usta; real tusta; forward; 
l ro>s; forward ; 



procedure initializedcfilesca,doo#lr); 
proceoure rem0teloggerctype#rmcaro*sta* 

.PRQCEQURE-UPriATEABnRTt NtWHOQlOTU; V Al U 



eal s; forward; 
interface. 

E^SIAUMlHOUJi REAL SXAzlJ— 1KQ1JJ.L. 
VALUE A*D0D»LR; 

mix); val^e type*rmcard*sta*mIx; 

OIOTT); VAIUE WHnoiUJJL; REAl- WHnofDTT 



00701500 
00/02000 
00706 000 

00713200 

00716000 

.ajOZlT-Qfltfl.. 



-J- 



00/19000 
00720Q00 
00800 00 

00900000 
00902000 
00V04000 



13 

u{ 

15 

16 

17( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 4 

27 

28 

29 \ 

30 

31 

32 4 

33 

34 

35 ( 

36 

37 

38 i 

39 

40 

41 < 

42 

43 

44 < 

45 

46 

47 < 

48 

49 

50 I 

51 

52 

53 I 

54 

55 

66 I 



PROCEDURE RUNSEPTICCBUFF); VALUE BUFF; RE 
SAVE PROCEDURE Dl SPOSALU » R )* VALUE I.*Ki RE 
-SAV.£-. P R OC E DUR E LI NK EU i FORWAR D* 



al buff; forward; 
al i*r; forward; 



SAVE PROCEDURE STARTIO(U); VALUE u; REAL UJ 

SAVE PROCEDURE CQMPLExSNOOZE (PR I#COUE )J VALUE 
_P^O££fllJRE.,,,USASl,lAPjEIJ.R£A. i.llMLilEQAtJlA Q I B ) 1„ 

SAVE PROCEDURE SNOOZEC NLWPRI > A0DHE5S* MASK ) ; 

SAVE PROCEDURE INDEPEnDEn tRuNnERC ROu TI NE *PaHAm 
_-aEAj_JRflC.E£URE_,KEYlN(B)X- VA l.U£-liz...i3.Ull|, EAN AL.... 



forward; 

PRi; REAL PRl»CODEl 

__ xfiMR ; 



009^0000 
00921000 
10 8 .90 00- 



01165000 

01240000 

■■QlglQlQO 



EjERf SSZ)* 
■JLLLB-WARD/* 



02000000 
02012000 

Q2O210Q.CL. 



BOULEAN PROCEDURE SMGAMES (MIX* STA* WH 
BOOLEAN PROCEDURE wH YSLEEPC MASK) i V 
SAVF PROCEDURE RuNCMTX); VALUE HlXi 



iCHWAY); 

alue mask; 
Ji£A!____J 



REAL MASK; FORWARD;* 



02021100 
02022000 

__0 35 QQ Q 



SAVE PROCEDURE 
SAVE PROCEDURE 
SAVE PROCEDURE 



savemix(mix); value mix; real mix;* 
halt;* 

KILLC A) ; VA LUE a; AriKAY A[*];* 



02032000 
02036000 
02047000 



BOOLEAN PROCEDURE OLAYCLQC); VALIe LUC; REAL L 

PROCEDURE SEEKNAM<A>8*e*0>E*N); V A LUE A»B;REAL 

PROCEDURE UN H00tUE(MIx3i* 



oc; forward; 
a»bac*D'E*n; forward; 



real procedure getespoisk ;forw aro;* 
procedure changemcp(ktr); value kjr' 
pr ocfpure changeintrinsicfile c ktB); 



02052500 
02052600 
0205 3000 



real ktr; 
value ktR; 



forward; 

real ktr; forward; 



02111000 
02111100 
02U1200 



REAL PROCEOURE EXPi FORWARD; 
REAL PROCEDURE ANALYSIS* FORWARD; 

PROCF hiiRE shqrtco mmuktcatf; for ward; 



02111300 
02111400 
02111500 



iard; 



PROCEDURE CONTINUITYBJT; FORW, 

procedure messagewriter;* 
procedure twxout(a*b*c>0); value a,b,c,p; real b>b,c>ui forward; 



02111600 
02H4000 
02 13 1012. 



PROCEOURE RJINPUT(STA); VALUE STA; REAL STA; FORWARD! 
PROCEDURE RJEuNlTCHANGEm; VALUE T* REAL T; FORWARD; 
PROCEOURE SET(TUSTA);VALUE TUSTAl RE AL T U S T A ; FORWARD; 



02131013 
02131014 
02131016 



T 



Q 



3 
4 
5 
6 
I 
8 
9 
10 
1 I 

113 
'14 

X 

1* 

17 

U 

fl9 

»' 

21 

22 

23 

24 

26 

26 

27 

28 

23 

30 

31 

32 

33 

34~ 

35 

36 

37 ~ 

B8 

39 

40 

41 

42 



PROCEDURE TAChCA»B#C);vALuE A,fi; REAL A/8 ,C/ FORWARD ; 
PROCEDURE SP0SINCSTA/FUNC/8UFF); VAI.UE ST A /FUNC /BUFF; RE AL 

-P-EOCFnufi£.-SPOUT(MESSAGE)J 



02131017 
STA/FUNC/BUFF;02l3l020 
Q2U2000 



PROCEDURE 5»0UTER(MESSAGE*UNlTN0#TYHLj; 

PROCEDURE ENDOFDECK(R#TUSTA);VALUE R/TLSTA; REAL H/TUSTA; 
PROCE DURE PBI nU*B)J VALUE AJ REAL A»BJ FORWAR D/ 



forward; 



02132300 
02177100 
0*1/8500 



PROCEDURE TERMINATECMIX); VALUE Mix/ REAL MIX/* 
REAL PROCEDURE PUC EFINDER C S/ A* L)i 
PROCFDURE TERMINALMESSAGA(N); VALUE N > REAL Hi 



02180000 
02187100 

02188000 



SAVE PROCEDURE TERMINALMESSAGE(N); VALUE N; REAL Nj 
SAVE PROCEDURE CHECKLINKS; 
RQHLFAN PROCEDURE HE aDFMFRQMQISK(H« I B U 



02330100 
02330600 
02 347 ISO 



PROCEDURE DHAINOC UNIT, BUMP* ERROR); 
REAL PROCEDURE UN I T IN (T INU* WHAT )/ VALUE WHAT; REAL WHAT; 
. PR OC EDUR E . ID LE TlM EfH 



02347200 
02348000 
02360000 



REAL PROCEDURE EUF(A*B»D; VALUE A#B»L* REAL A*B*l; FORWARD* 

INTEGER PROCEDURE CALCULATEPURGEC PURGE U % 
gRfl£EQUR£-mAM&FOA'tE (g ur-ELi> VALUE BuFFl RFAl fluFfl FORWARD; 



REAL PROCEDURE TAPEUABEU(M#F#R# C'P) > VALUE M>F»R»C*PJ 
PROCEDURE PRINTCOREU 

■ERPXEaU RE O U MP CQ ft fctflU F F ).J 

PROCEDURE UOGCOMMENT CQ)f VALUE QJ REAL Hi FORWARD; 

SAVE PROCEDURE TRACEC WQRD#FORMAT ); % 
— P_R0CEOURE-qTSKBUfii— EORWARDi* 

procedure printrace;* 

procedure eggremove c what 000* par ameterf space); 

■PgJQ£EJDJU g ILJEG G£ N T E R i W H AJLCLDJLtfAiiA MEJlfe jj , S E £]MA1I 



02379000 

02380000 
023^3100 



XAI02393400 

Q23V40GO 



02^34790 
02436000 

02466000 



02469000 

02522100 
02 5224 00 



PROCEDURE EGGSELECTCPARAMETERWVALUE PARAM£TEr;rEAL PARAMETERiFORWARD; 02322800 

PROCEDURE NAMEI0(A,KTR)U 02603000 

REAL PROCEDURE TAPELABELC MUlFIDjFIQ/REElNQjCV'CLE^PURGE )i X : 02<>350QQ 



real procedure labelascratchclbl); v*lue lbl;real lbl;x 
procedure nsecond;forward;x 

REAL PRnCEDLJRF SECUR I TYCHFCK ( M. Ft LU ti i i 



026b9000 
02692000 
Q269600( 



PROCEDURE MAKEPRESEnT(C); VALUE C; REAL Cj FORWARD; 02696200 

PROCEOURE SIGnOFF{v#F,w);vALUE V/F,W*ARRAY vt*3»FC*3;REAL wIFORwARD; 02696300 

SAV E_P ROCEDURE I QREQUESTCFMjL )J VALUE F»I/LJ ARRAY F*L£»H REAL U Q26965Q0 



BOOLEAN PROCEDURE MTXINU,U*B>J 8EAL U/B* INTEGER 1/ FORWARD; 

procedure auxtodiskcd>l*a,qa);value u,l*oa;real U/L/DA/ARRAY AC*]; 

-4AV£_IJiIEGE R PR OCFDURE ACTUAI.nVFBl AT AnnRESS(TYPF'MlX» 



mo, 



0269670Q 
02697300 
0?6V775Q 



REAL PROCEDURE BREAKOUT* *RETU*NS HEAD OF BREAK FILE 
BOOLEAN PROCEDURE BREAKCTK); VALUE TKf INTEGER T*; 
Rnoi pan ' PRncFntiBE BAnnMPf BjMUiJ value r,h?; rfai r,hzi 



02700200 
02770600 
0?793flOO 



PROCEDURE C0M12; 

SAVE PROCEDURE FORKC R* S# 0/ MX.) J 



value r/S/g/mk; 



PRO CEDURE RSDSEQJ «PH(1NY T ERMINALMESSAGa> CQM5* 



-*■»«■ 



02809000 
02819600 

-Q2a252aq 



43 
44 
45 
46 
47 
48 
49 
JO 
51 
52 
53 
54 
55 
56 
57 



i\o 



PROCEDURE REELERCB); 
PROCEDURE RfiOPEN* 
P R UCFDURE R 3UFFIX; 



value b; real b; 

XRfSTART FILES 



02833000 

02843000 

,02911000 



procedure kernal; forward; 
procedure movetherest; 

PRO CEDURE KERN . AL j , <THIS I S 



THE RESTART SPACE PlRArE 



02942600 
02942800 
02973400 



PROCEDURE RESTARTCS#T); VALUE T; ARRAY S C * 1 i REAL 1} 

SAVE PROCEDURE QTlMERCCANCELSTAj; VALUE CANCELSTAiREAL CANCEL$TAJ 

^SAVF PBQCEB URE IWITIiTEIflC IQDESC*».lX<Uill, 



SAVE PROCEDURE 8UEUEUPCU)* VALUE U i REAL \ji% 

SAVE PROCEDURE LINKEU; 

SAVE PROCEDURE STARTIO(U) ; VALUE Uj REAL UJ% 



03047200 
03500100 
04000000 



04016000 
04019500 
04020000 



SAVE PROCEDURE PRINTERFINISHCU)* VALUE U; REAL UIX 
SAVE PROCEOURE tOREOUEST<FlNAL»IODESc#LOCATlONW 
SAVE PROCEDURE f INISHQFF IQCU U VALUE Ul REAL UJ» 



04035000 
04040000 
Q4 Q9 7QQQ 



• • 



'2 
4 



6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

35 

56 

57 



PROCEDURE PROGRAMRElEAiE;* 
SAVE PROCEDURE NEhIOJ% 
-ELR&CEflUSfL . JUSKflRAUX F B B fUfLLL 



-VALUE _cl* R i, A L -JUL- X0JJH.AR1U. 



oaoyvooo 

04115000 
JULLZUOXL 



PROCEDURE ACTUALlejERR(R); VALUE *' REAL Hi FQRWARD> 
PROCEDURE LINKUPCTYPE, KEY); VALUE TYPE#KEy; REAL TYPE..KEY; 

,.£j_j___mi___: XHXCK4MME1L1 M E S$ ( M IAaF I B * U 1 i % - 



forward;* 



04121425 

Q412U5Q 

JLfllAlSOQ- 



PRUCEDURE LQG0UTMAINT(8); VALUE 

PRUCEDURE MAINTLOGGERCB); VALUE 

SAVE PROCEDURE IQF I M SH( %, C ) ; 



B; HEAL B> 

b; heal b; 

VALUE R,C; 



SAVE REAU PROCEDURE WAITlOt IOD# MASK'U);* 
REAL PROCEDURE TAPEPAft,lTYR£TRYU»#U>KEYH.X 
PROCEDURE DISKflRAuXERRORCfl); VALUE Hi REAL 



FOR^AHD/X 

forward;* 
._R£Ajl_J3xCJL 



04121600 
04121650 

jiiii-22aaa. 



_bj_ 



04240000 

Q425400Q 
4256000 



END PROCEDURE .OISKGRAU.XERROR.J 
PROCEDURE ACTUALIOERR(R); VALUE R; REAL 
R E AL PROC E DUR E T*PE PARITY8ETRY(H»U'K6YJLUL 



H. 



04353000 

Q4353200 

jQA54 800fl- 



REAL PROCEDURE PLACEFINDER(S/ a* L)l 
PROCEDURE STABLE(RD»S);VALUE RD#S;REA|_ RO»S; 

_SA¥£ - ■REAL--e-HlCSfiUfiE-ftEX( T# S T A ) LitV ALUX TtA&TAi R g AL....T U S T A i 
SAVE PROCEDURE SETCTU'STA). VALUE. TUSTAi REAl 
PRUCEDURE LOGOUT(A); VALUE A; REAL AJ FORWARI 

- PROC EDURE,., Lflfi&gA£LIJiULUi-l THIS MAY HE 



04700000 
05000000 
Q5"if)000Q 



tusta; 

id; 



PROCEDURE SCRATCHSQJW(A#N) ; 
PROCEDURE SCRATCHOlRECTORYERROR(A,N)J 

BnUfFAN PRHCEn URE SCRA TC HffHFCK( I* H»S) ; __ 

PRUCEDURE SCRATcHSpECIALCASECCN*A,N,CORADDR,SEGrtDDH,I#h,SCRATCHSEG)i 
PROCEDURE SCRATCHDIRECTOHYENTERCA,N); 

PROCEDURE SCRATCHCLEAN(ARY,BC.»LIN*) i 
REAL PROCEDURE PETUSERDISkC N'T ) ; VALUE H* T ; 

VALUE a>n;. 



REAL N'T ; 
REAL A. N i 



- PROCED U R E F O R GE T U S Eft Dl S KC A. tO ; 
PROCEDURE DKBUSINESSCBUFF); VALUE BuFf; REAL BUFF; 

SAVE PROCEDURE DISK I Q( LOClOD' CQHE' S iZErDISK ) |X 
PROCEDURE FQ RfiF T E SP DISKCSEGHFNT?; VALUE SFGMFNT; REAL SFGMFNT; FORMA 

REAL PROCEDURE GETESPPISk;* 

PRfCEbURE FORSETESPOlSKf SEGMENT); VAlue SEGMENT* REAL SE-GMENTJ* 

ERJ3.CX0.Ufi E- -D- 1 8 K fl U fl 1 1 



05600000 
05607000 
o«i70 onon 

05806500 
05809600 
058111 70 
05811340 
05813700 
. 05t)' i j7 30 Q 

05837800 
05839400 

05846600 



05950000 
06000000 
R, p; 06 O 20 50JL 



PROCEDURE CLEANOUTCSYS)' 
ENU; X OF PROCEDURE CLEAIMOUT 
■SAVE PRO CEDURE.,, iH SKW ^ H .C CU REf jUILlUI SK ?i 



06021000 
06036000 
06046QOQ 



PROCEDURE DISKSQUASHCBUFF)i 

PROCEDURE CHANGEABORT(X); VALUE X; REAL Xi 
_PR_Q rmuRE 8IfiN0FF(VCP T QR«ff ILEBLQCK*PiiT) ; 



06057340 
06059820 
Q6Q615QQ 



FORWARO;* 



06068000 

06179000 
061 80000 



procedure userdiskspecialcasecq*r#utj»j) ; 
procedure getmoreolaydiskcmix);* 

-RE_AL__PR QC ED URF S EC URITYCH ECKCMJ[p*FmiUSf.RlO*HEAUER?j 



06350000 
06400000 
06460000 



PROCEDURE TACHCSTA $ MIXtFUNtt ); VALUE »IX*STA; 
PROCEDURE REM0TELQ«<i£«iTYPE*RMCARD, 
C OMME NT PROCEDURE REMflTE LOGGER UPDATES 



REAL ST A »MIX»FUNC; 
STA*MIX)I 
REMOTE LQft ACCRO TO 



06500000 
XUS06846000 
XJS06846300 



real procedure nextcdnum(upqate ); v r al,ue upda 
procedure startadeck(n); value n* real n; f q 
pr ocedur e , e ntercontrhlDECkch); value, h; arra 



te; boolean update; 

rwaro; 

y n c* j ; f orwa rd ; , 



07001600 
07002000 
Q70Q21QQ 



PROCEDURE CQM23JX 

PROCEDURE STA«TL0ADN(KTR)J VALUE KTiJ. REAL KTR;* 
PROCEDUttE T» BLE OFCONTENTSci^COyNT)l> 



r|j 



0700400ft 
07243000 
07268000 



PROCEDURE REMOVEDECKCN* TUSTA); VALUE 
PROCEDURE DECKREMOVER(B); VALUE Si 
BOOLEAN PROCEDURE RE ADEMFROMDI SK(H, 



n»tusta;real n,tusta; 
real b;x 

iBJJX 



07298000 
07354000 
Q73760QQ 



BOOLEAN PROCEDURE PRInTURPUnCHWAITC U 

PRfCEOURE EN0OFOECK(R» TUSTA); VALUE 
PRQCEOUHE STARTADECK(N?J VALUE N; R£ 



>PNCH)iV 

k,tusta; 

al n; 



alue Q'Pnch;real q*pncm; 
real r, tusta; 



07405100 
07406000 

07422000 



• • 



23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 



38 
39 



PROCEDURE RUNTHEDECK(B);VALUE BJ REAL Bit 
PROCEDURE EXTERNALENDCB); VALUE BJ HEAL Bi 
lEQLEim&L CHANriEPRinRTTY(BUFFfMU); V.ALUE Bll££j>±l£L 



PROCEDURE ENTERCONTROLDECKCHJJ VALUE h; 
BOOLEAN PROCEDURE MTXlN( I *U*BUFF ); % 
PROCEDURE TA PEPURfiECRUFFT; 



RfcAL FiUFF»MIx;_ 



07457000 
07473100 
07485000 



ARRAY ht*J> 



VALUE BUFF J HEAL HUFF 1 1 



07541000 
08000000 
nfl024non 



prucedure gimedate(b#dt); value p'dt; real b»dti forward; 
procedure rewindandlgckcwhad; value what; real what;* 

PROCEDURE PR T N.TO IRFti TOR VC BUFF « CODE )f 



*RM 



0807000Q 
08079000 
08095000 



BOOLEAN PROCEDURE RHEQSTATCTYPE* «ASK*MIX*STA ) ; 
PROCEDURE PBI0(A>P)| VALU£ A; HEAL A*#PA FORWARD; 

-PROCEDURE CnNTINUITYBTTt* . 

BOOLEAN PROCEDURE PRI NTQRPUWCHwAl T< i'PNCH ); VALUE «,PNCH;REAL Q-PNCHl 08255000 
X THIS PROCEDURE IS RESPONSIBLE FQK STARTING PHNPBT/DlSK, IT CHECKS 08255055 

___ PR DCEOUR E PR I NTB ACKUPCB(JFF); VALUE BUFF; RFAL BUFF; XP 6 282000 



0813*030 
XP 08170109 

08171000 



% THIS PROCEDURE HANDLES THE PB MESSAGE, MAKING THE NECESSARY CHECKS 08282110 

SAVE PROCEDURE INITIALIZE; F0RW4R0; 08303000 

SAV£ RliJ. PROCEDURE CORENP; F ORWA RD* , 08303200 

PROCEDURE TIMEOUT <B>; VALUE B> REAL B>% 08305000 

PROCEDURE OIMEDATE(B^DT); VALUE B>DT; REAL B»OT; 08317000 

PROCEDURE -3E4:IIA.TE( BUFF); VALUF BUFFI HEM, BUFF-jJi _, 8. 303000 - 



procedure changedatecbuff); value buff; real buff;* 

PROCEDURE SETIME(BUFF)^ VALUE BUFF; R£AL ByFFiX 
_B£AL--P-HXlC£nuaE-JlORMF sscbuff.hu;- VALUE -auf-F^-tOJ— bxal buff, hi; 



08376000 

Q83V0000 
08418000 



PROCEDURE SUSTATUS(A#DDD*B); VALUE A,DDD,B> 
PROCEDURE 0UTPUTLA8ELCB); VALUE Bi REAL Bi* 
-J?AacEOURE- T4-M£US-E0CBj X)j_ 



REAL A#B/ ARRAY DDDC*}; 



08438900 
08439Q00 

oeaaaooQ 



REAL PROCEDURE ANVIL<IL*Z); VALUE H-,Z; 
PROCEDURE LOGOUTCA); VALUE Al REAL Al 
PROCEDURF SAVFTHFUNlTfB); VALUE Rl HjAL 



REAL IL*Z;% 
-fti-X 



08546000 
08*68000 
0857'>ono 



BOOLEAN PROCEDURE WHYSLEEPCMASK^ VALUE MASK* 

END PROCIDURE WHYSLEEP; 
PROCEDURE CHANGFQPTIQM(BUFF,RS);at 



real mask; 



PROCEDURE TYPOP<KTR>&0>; VALUE K.TA*ftQJ REAL KTR#PQ; 
PROCEDURE DI«KLOatMlQ;rtto»H)J VA%'UE MlQ*FlD,H;. RtAL MID,FIO; ARRAY 
PROff fnuRF PBlQf ALPHA. PQINTFR); JtALilt AlPHAJ REAL ALPHA»PQINTERJ 



0859900Q 
08623000 

08 6 240 



08679000 

HC*3;08697100 

XP Qft700000 



X THIS PROCEDURE HANDLES 10 FQR THE CREATION OF BACK-UP FILES. FQR 08700910 
PROCEDURE TIMERELAXER(KTR*TYPE»MIX);x 08730000 

PROCEDURE CHANGEFACTCR(BUFF*TF)i VALUE BUFF,TF; REAL BUFF; BOOLEAN TF; 06800000 



PROCEDURE SHEETDIDDLERCBUFF,TYPE#SID); VALUE BUFF, T YPE/SID; 
PROCEDURE REMOTEMESSAflE(BUFF*TYPE#MIX); VALUE BUFF* TYPE»MIX; 
PROCEDURE LGINQUT(BUFF»TYPE); VALUE BuFF»TYP£ i REAL BUFF»TYPE; 



08850000 
09000000 
09200000 



32 | 
33 



43 



45 



52 



REAL a; 
VALUE B.UFF; 



real buff; forward; 



procedure blackoutcbuff); 
procedure lqgdiskca); value a; 
procedure whatintrnsiccbufF); 

REAL PROCEDURE NEXUUXMEMMQRD(KEM>E!UF l IL.EP/ttAM#D ISKADDRESS); 
IF OISKADDRESS * THEN X FIRST CALL ON PROCEDURE 
EXIT* EM PROCEOURE NEXTAUXMfcMWQRfl; 



09281000 
09300000 
0940000Q 



0940010,0 
09401300 
09 4Q41Q0 



PROCEDURE TRANSFERMCPTOAUXMEM(HDRADRS,MAXLOO; VALUE HDRADRS#MAXLOC; 09404400 
END PROCEDURE TRANSFERMCPTUAUXMEM; 09410000 

PROCEOURE SETMONlTORFILE(STOP); VALUE STOP; REAL STOP; _ 09410200 



END PROCEDURE SETMQNITORFIIe; 
PROCEDURE (SETMONITORQWI 

END PROCEDUBE GETHfliaTflBdHJ 



Q9423800 
0942f900 
09428800 



PROCEDURE ENTERSYSMTRCN); VALUE Hi 
EXIT! END PROCEDURE EKTERSYSMTR; 
PRUCEDURE CHANGEAUXFILES(BUFF^WA); 



REAL N; 



Q9426900 
09433500 
09433600 



PROCEDURE INTRINSICTABLEBUIL&ERCFHM VALUE FH; REAL FH; 

PROCEDURE CMANdCINTRINSICFlLECBUFF)* VALUE BUFF; REAL 
P RO CEDURE C¥*N 0EH CP<B MFg3l VA LU E yBUTF* RE AL B U FZl 



buff;x 



09500000 
09600000 
Q 96791 QQ 



• • 



i 

3l 
4 

!s| 

J6 



9 

- 
10 

11 

12 

13 

14 

lb 

16 

17 

18 

19 

20 

21 

23 
24 
26 

26 
27 
28 

29 
30 

31 
32 
33 
34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

•3 

44 

45 

46 

47 

48 

49 

SO 

61 



xj 



BOOLEAN PROCEDURE SYSTEMF I LE C A, ti J ; VALUE A,B; HEAL A,B>* 
REAL STREAM PROCEDURE GNC(B)JX 

.flflUJL£AN_5JiieAKJ.aO££X3LUfi£. rA NC£i-I,.yALU E -£-ll 

REAL PROCEDURE EXP)X 

STREAM PROCEDUHE FRMTK Q* T,M, WB > ; VALUE Q,T,M;X 

_P_BLO.CEILUfi.E- O.TJ : — 

PRUCEDURE WKSETVALUES(KTRX); VALUE K7RX> REAL KT«X; 
END PROCEDURE WKSETREQUESTS; 

PR UC FDIJRE WO RKSFTflsi^ ; VAl „ l , if Nl REAL NJ 

X NOTE» WKSETNOSELECT IS A FLAG TO PROCEDURE SELECTRUN TO 
REAL PROCEDURE PRNPBTStfEC A#E 1 {Z)i 
% THIS P RQCFDU RE H AM3LES. THE FOLLOWING FUttC TlCNS FOR C0M19, O FPFNnlNG 



09700000 
10001000 

_ijQiiiLtflJttfl_. 
10012000 
10047000 

- 10062000 -_ 



12201000 
12321500 

X2J5Q50Q. 



12425500 
12^00000 
12 500 1 Id 



iPROCEDURE PRNPBTSPECASE2C2)/ 12800000 

'% THIS PROCEDURE HANDLES ADDITIONAL THINGS FOR CUM19, VALUES OF Z AREU2900UC 
-PRUCEDURE CQM19; UQOOOOQ 



PROCEDURE DCREAD(STA); VALUE $TA; REAL *TA; 
PROCEDURE DCWRITECSTAj; VALUE STAJ REAL 

■■E RQCED UBE- JUEuAlLTC M A N G E t T- ) i ¥ AL UE T* R EAL T J 



STAJ 



13200000 
13250000 
3301000- 



-1 



PROCEDURE twxout(unit#numchrs,area»staj; 

PRUCEDURE RJlNPUTCSTA); VALUE STA; REAL STA; 

.B-EJi IH - 1XH1S-- IS—THE PRDtf EQURE JLHAX-JjANOLF.S-^UJ^-afJUiJrX^JQB -INPUT... 

REAL PROCEDURE ANALYSI5JX 
SAVE INTEGER PROCEDURE ACTUALOVKRLAYAOORESSC TYPE, Mix* LOC)i 

-■EfiQCEDilBE AUXlllARYMFMORYCASHA LTYRE COVERYJ 

PROCEDURE AUXILIARY TABLE I INITIALIZE J 
PRUCEDURE MAKEPRESENT(C); VALUE C; HEAL C;x 
■£fija££flua£-Z 1£P E R C A *JU£li V A L UE-JuSU£j BE Al — AxfixCi... 



133/9000 
13509000 

.imooo-o- 

14000000 
H10500Q 
I HXH Q'QSJSL 



£SmXLARJU- 



PROCEDURE C0M5;X 
PROCEDURE ZlPPERCWl*wa*USERSTAa;^ALu%Wl#W2»USERSTA; 
REAL PROCEDURr FUFf A.fi, L ) * VAt UP ■ Ai 6>i, 1 RfAL A , B»LJ 



14122000 

14155QQ0 

-UOA2100 



14343000 

14531000 

■145430QQ 



PROCEDURE COMli; COMMENT ALGOL I/O 
PROCEDURE C0M36; X CQMMt-NT TYPE 19 
PRQ CFDURE DISPL AY IX-U-Jy-ALUE U R E A 



communicate;* 
io interface 
l x ; s , 



1462 3000 
14716000 
15Q190QQ 



C0M13 i% 



PROCEDURE 
BOOLE 

boolean prbcedure prt 



BOOLEAN PROCEDURE CON 



PROCEDURE 
PROCEDURE 

p rq cejpii.be.. 



CHEkREMOTElo 
WHATMCP(BUFF 

WH.AT1NTRNSIC 



QUEJK 
GAMES 



C*N'L*S* 
CBUFF^MI 



X)l VAL UE 



HUFF> MIX; WEAL BUF F*MIXJ 



15060000 

15168000 

1540 0000 



PROCEDURE CQREPRlNTCQ)* VAL 
COMMENT i THIS RROCEDUR 

B e Al p_R qceoure aux prin tcq); 



G(BUFF); VALUE BUFF; REAL BUFF; 15<*42200 

u value buff; real buff; *fqrmats wm message 15500000 
m um; . yAU uE .buff; real_jaue_fj 155 340 00 



ue q; re 

t-., cqmPut 
value a 



al q; 

es and types 

j rea l a; 



THE AMOUNTS OF SAVE 



15600000 
15600050 
15605000 



END PROCEDURE AUXPRINT; 
PROCEDURE LQGCOMMENT CQ)> V 
REAL PROCEDURE KEY INSpAN (KT 



alue a; 

R#MIX)i 



HEAL 
HLAL 



u; 

KTR,MIX/ 



15609600 
15610000 
16034900 



END PROCEDURE 
PROCEDURE KEYINO 

JUm_-£fifl££BiiSt 



keyinHCan; 
c8#ktrx); value *»k 

KEYlWDi 



PROCEDURE KEYIN1CB»KTRX); VA 

END PROCEDURE KEYIM* 
PROCEDURE KEYIN2CKTRX); VALU 



trx; real b,kt.rx;. 



16043800 
16044000 
16344Q00 



lue bTKTRx; real b>*trx; 

E KTRX; REAL KTHX; 



16345000 
16689500 
16690000 



52 
53 
54 
56 
56 
»7 



END PROCEDURE KEYIN2* 
REAL PROCEDURE KEYINCB)* VALUE 8J R 
X THIS PROCEDURE FUftjCTlQDIS AS A QRI 



X THIS PROCEDURE FUNCTIUNS AS A QR I 
X "KEYIN0»S»»KEYIN1" AND M KEYlN2". P 
X ARE CALLED DIRECTLY, AND PRQCEDuR 



EAL BJ 

VER,FPR AUXILIAR Y 



VtR FOR AUXILIARY 
HOCEDURES "KEYINO 
E "KEYIN2" IS CAL 



PROCEDURES 



PROCEDURES 
" AND "KEYIN1" 
LED AS AN 



16903100 
16904000 



16904500 
16905000 
16905500 



END PROCEDURE KEY IN; 
PROCEDURE 'LBMESStFN#Si\*U#I2*E*UNIT«U#X); 
PRUCEDURE STOPM(NCS)l VALUE NCS; REAL-NCS; 



16971500 
17000000 
17900500 



9 

10 

11 

12 

13 

14 

'.li 

16| 

17 

18 

13 

20 

21 

22 

23 

24 

25 " 

26 



27 
28 

29 
30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43 
44 
46 
46 
47 

»a 
49 
so 



51 
52 
53 
54 

55 

56 



END PROCEDURE STOPy; 
PROCEDURE TISKTASKJ FORWARD; 

-£JLy££QilR£-ElL FHO LD LAjJtelQSbxnc. t HU j D ) ± 
REAL 
PRUCEDURE 



proceoure directorysearch(a#b»qptn);x 
picktmelock; forward* 

FRRUPTI -EUhkAHJIi . 

PRUCEDURE COMMUNICATEE 
PROCEDURE CQMMUNICATEO; 
PROCEDURE SHDRTCOMMUMCATE? 



17928000 
17928500 

xaujiiiauii. 
I8155000 

18468100 
1846H20Q 



PROCEDURE TISKTASKJ 

PROCEDURf PICKTMELOCH; 

BEGIN rOMMENT THIS PROfEnuRr 



18500000 
18700000 
19*iQ0Q00 



PRUCEDURE EVENTANDINTERRUPT; 

% LOWER 
■ P-BU.CLQLLB.E S ELE CTRU NW 



HANDLES LQflKIMfi/U fc tLOcKT-Na OF 



19687000 

19900000 
199QQ010 



WQMD* PROCEDURE DESCRIPTOR FOR INTERRUPT 



%%%% THOSE DECLARED IN 
THIS PROCEDURE KILL. BE 
THIS PROCE DURE WILL BE 



PROCEOURE SELECTRUN« 

EXECUTED. TNJ* PROCEDURE CAN ALSO 

i^l£UlE_0. THI S PRO CEDUR E CAN ALSO 



ONLY 



RETURNING TO THAT PROCEDURE 

% PROCEDURE 

-.-END- PRflCEDiJ.RE-..S£tE-C-Ifi-UJlU. - -—..- _ 

PRUCEDURE SELECTRUN2; 

XXXX THOSE DECLARED IN PROCEDURE SElECTRUN. 

_ ■EjVQ. „^flCEfl-U&E,-S€4€-C J- R u N 2 i - _..__ 

PROCEOURE SELECTRUNCF); VALUE Fl REAL FJ 

XXXX VARIABLES DECLARED IN THIb PRQCEObRE. 

_ - . .-P-RQ.C&flURES, " SELECTRUNl " AND/ QR " SELECTHLN2 " W I U BE EXECUTED 

PROCEDURE "SELECTRUNl" A ND "SELECTRUN2" MaY, IN TURN* 
XXX SEE ALSO -SEGMENT ZERO" SECTION IN PROCEDURE 
PROCE DURE PRlMTTHFCnvPR(rARn.lllylTTNn»PJiW 



SPECIFY 
M SiELECTRUN2" FOR 



PROCEDURE FETCH(UMTNO*CAROLOC#i>UilRCS.); 
REAL PROCEDURE SCN(UN iTNQ,CAR&LOC, SOURCE* ACCUM#KOU^T'LASTSC AN* 
P ROCEDURE $EEKNAM(AyR*Cfn*£»N)i VALUE A*Bi REAL X,fi,C,n,F.t)l 



REAL PROCEDURE PPC 
PROCEDURE SECURITYMAINTC TYPE# SMID*SFlD> CMM, SFH* CARD > J 

1***__ALS Q SEE PROCEDURE "SELECTRUN l" CSEfl .NO . 20 05560 ) 

REAL PROCEDURE HBCU 

END; % LIBCC PROCEDURE 

REAL P ROCEOURE CCSETJ FORWAR D; __ 



FOR 



PROCEDURE ccfini&m; 

REAL PROCEDURE CCCOMPlLEi 
REAL PROCEDURF TNT T 1 A! \ If T T I 



REAL 
REAL 
REAL 



PROCEDURE 
PROCEDURE 
PROCEDURE, 



ccunit; 

ccsecmaint; 

cclabel; 



BOOLEAN PROCEDURE CCFINDJ 
PROCEDURE CONTROLCARD(CARo); VALUE CAR#; REAL CAR»f 
-REAL., pftQc f D URE C C SET! 



REAL PROCEDURE WHATSUPC STA* MIX^FUNC* ARAE ) ; 
PRUCEDURE SEEKACTIONCSTAfMlX#FUNC#IUO); 
.P_ROCFDURE UPDAT_EABilRlLN(WtiQ DIDIT); VALUF HHODTDlTJ RFAL WHODJOTT; 



S RESfT OMIT % E#D OF #ATAC#M PROCURES 
PROCEDURE flNDFREEADDRESScM)* VALUE NJftfiAL N^FORwAR&; 
PROCEDURE NSECONDU _^___„ 



PROCEDURE STATUS;X 
BOOLEAN PROCEDURE OLAY.CLOO* 
.PROCEDURE CHANGf ABQ KTCX U- 



% MAOE SAVE IN 
VALUE x; RF.AL 



INITIALIZE 
JLL* 



19900900 
19902509 

?Q0U2O0 



2001640Q 

2001820 
200182 



20018500 
20023000 

-20060200- 



20080500 
20085600 
20l aQ 3Q0 



20140800 
20U60QQ 
« jQU7 2Q Q 



20147300 
20176200 
20289010 



20292000 
20.41.4000 
203^2010 



2038300,0 
20511100 
2Q5A28QQ 



20566000 
20580350 



20580800 
2058380Q 
2 058670 



20589700 

205*0850 

-24S9485Q 



20596750 
20597550 
20700000 



21000000 
215U0000 
21700000 



21752004 
220a0500 
220Q1000 



PROCEOURE STATIONMESSAGEWR ITER (PARAMETER); 

THIS PROCEDURE HANDLES ALL B487 OUTPUT, BUFFER SIZE NEED NOT BE 
KNOWN AS THE PRQCEDuRF LEARNS FROM Thr REfi^l T D ESBRTJFTnR Hriw huCM has 



22055000 
22228000 
2290Q00Q 



23000000 
23003000 
23004000 



li 



m • 



>r 



10 



13 



16 
17 
18 



19 
20 



24 
25 



27 



90 



33 
34 
35 
36 

37 ~ 



39 



41 
42 
43 



47 
48 



50 



52 
53 



55 
56 



SAVE PROCEDURE FORGETSPACECLOC ) ; * 
SAVE INTEGER PROCEDURE ACTSpACE C S I_L*SA vEF } ; 
SAVr tnitfgfr prqe fpijfe ft p j s p A C F ( S I U ' T v P^ r S A^EF ) » 
SAVE INTEGER PROCEDURE DlSKSPACEC WURdS*MIX* AUX )i 
SAVE PROCEDURE 01 SKHTNC SEGNO* SIZE); 
._____£. PROCEDURE nCQPTCTRiiV ALUF TRi ttOm.FAN iRi __ 



24U00000 
24032050 
20 0A2ZOO- 



PRUCEDURE FlNDFREEADDREbS(N); VALUE NJ REAL Ni 

IF CFlNDFREECTR.sFlNDFREECrR+1) GEQ 32 THEN* THIS PROCEDURE 
* -CALLE D FRFU UEHLY SQ MAKE I T A SAV E PROCEDURE 



24101000 
24200000 
245QQQ00 



IS 



PROCEDURE MARKSP0STAC»TA,IN0R0UT);V4LuE-.STA,lM0R0UTiREAL STA* INQROUT*" 

PROCEDURE INQUPTCPARAMCTERHVAUIE PARAMETER; REAL PARAMETER; 

S AVE PROCEDURE DlSPQSfcLC I»R li 



24600000 
24610000 
■_J.Q1.QQQ. 



PROCEDURE RuNSEPTKCBLFF); 

PROCEDURE NINE.TEENREADERCSTACK/* VALUE STACK* REAL STACK/ 

_J__U-EA-L-- RQCEDURE R6".n0F0RH_TTEH(f f Ti.I* X.-)tjHCL*k3.r)PT TD|_ ? 1 

PROCEDURE LIBRARYLOADSPECIALCASECZ); VALUE li REAL Z; 

PROCEDURE DOSS INITIAL S_T*UP AND OTHER SPECIAL FUNCTIONS 
PROCEDURE LlBRARYLQADf £ 



25000000 
25050000 
36000000 



26OO0O0.0 
27001000 
27990100 



END; % OF 
PROCEDURE 
PROCED URE , 



LIBRARY LOAD 
LIBRARYDUMP; 
iOJ-RARYZJ-EUlL. 



PROCEDURE 



27997600 
27*97645 
-wooonan 



SAVE PROCEDURE FlLLORKlLL< A* START* SIZE* TYPE); 
SAVE INTEGER PROCEDURE AUXlLI A«YSPACEC SIZE ) ; 
-SAVE _______ U RE FO RGETAUXTL I ARYSPACEC SIZE. 1 Q___ 



28399000 

28400000 

■ 2aa000QQ. 



PROCEDURE AUXILIARYTABLEINITIAL12E* 

PROCEDURE auxilIarymemorycasualTyrlcqvery; 

J-RQCFDuREJ-RRnRMFSSFRCTYPEH VALUE TYPE* BXAL- 



TYPE; 



procedure errOrfixer(TYPe); value type; integer type; 
PROCEDURE J0BMESS(MIX*0*A#B*C*D); value mix*q»a*b#c#o;x 
CCLMMENT ) THIS PROCEDU RE CAN BE USED TO BUlLU AND SPOUT A MESSAGE 



29000000 
29100000 
) 000 
29400000 
29500000 
-3QVJ3Q00- 



procedure mixprint(Q); value q; real q; 

comment this procedure invukes jubmess to type the job specifiers 

.PROC EDURE TQ BE CALLED — THE ADDRESS MUST BE In "HH ATQDD% [ CF 3 . AFTER 



31000000 
32000000 
320QQ110 



32100000 
32100010 
35QUQ0Q 



"SECONDS" SECONDS THE PROCEDURE WILL BE CALLEO PASSING "PARAMETER" AS 35012000 
PROCEDURE EGGENTER < WHATqDO'PARAMETER* SECONDS ); 35200000 

PROCEDURE EG GS EL-XTtB.ARAMcTER);. .53010-0 



PROCEDURE EGGRE MOVE CwHATODQ*PAHAME TER, SPACE J ; 
PROCEDURE DQLITTLE(UK*T>A*B*_)* VALUE T*A*B* REAL QK'T*A*B*-; 
REAL PROCEDU RE Fl NpOUTPUT (M ID* F I D* REEL* COaTF* rY _Le* TYPg* FORMS* K ;Nn l: 

Real procedure findinput cm id* fid* reel* cdate* cycle* cobol*ul*of*mooe#fn); 
procedure startimingcfn*U); value fn*u; real fn»u;» 



-B-_L_P_RQCED URF DISK ADHRESSCMTn* Fin* F Prt_* A*H* T m; 



35401000 
360010C0 
37000000 
37177000 
37271000 



PROCEDURE 
PROCEDURE 
PROCEDURE 



value u*rwl; real u*r*l; 



SETNOTlNUSECU'RWD* 
BLASTQ(U); 

builolabel(lable*hid,fid*heel*coate*cycle*pfact*ptn*blkoof*» 

FILEM€SSCI*K*M#F#R*D#C); »» 



% t5HMn72B6aO_ 



PROCEDURE 

PROCEDURE FlLEMESSAGE£l*K,*l*r*R*D#C*TYt£); 
J-BJ-^__lBi_Fl LLaAjFFEB < 8 C C UR»£N T « F I MA L * C,*_ftOL * NR 3 * 



37302000 
37320000 
37337000 



REAL PROCEDURE F ILEHE AD£R(M JD*F lO*NROi«f , S IZL *BLEN*RLEN* $) ; % 
PROCEDURE PURGEIT(U); VALUE U* INTEGER, u; % 
PRQCFDURE WRllNCHERtHW ARRAY H [+ 3; 



37357000 
37357300 
373650 00. 



PROCEDURE DIS«f ILEOPENCAt*PMA)** VALUE A%PHA; INTEGER**A|,PHa; 
PROCEDURE OTHERFIlEOPENH»(AlPW*); VALtJ* ALPHA*. INTE«£« ALPHA; 
PROCFnURE QTHF Rf II EQPFNQttTC Al P i * ) i StAxm Al ffWtol ,; INTCt-MI At pma; 



37418000 
37449000 
3750PQOQ 



PROCEDURE DISKCLOSE(ALPHA)* VALUE ALPHA* 
PROCEDURE BACKCLOSECALPHA)* VALUE A_PHAJ 

procedure qtherclose(alpha); value alpha; 



38000000 
38102000 
38-QQOOO 



pr0ce0ure fileopen(xtra*alpha); 
procedure sbstatusca*doo*b); value 

PROCEDURE OIRECTORYBUILDER(A*DDD); 



INTEflER ALPHA;* 
INTEGER ALPHA** 
INTEGER Aj_PHA_j 



38355000 
38^40000 
3B648000 



a,ddd*b; real a«b; array oodc*j; 



39000000 
19900000 
40000000 



T* 



59 



• • 



I 



1 
e 

9 

10 
ri 
\i. 
13 

14 
*'j 
16 
17 



19 
10 
21 
22 
23 
24 



25 
26 
27 



procedure realfileclcsecalpha); value alpha; 
procedure linkup<type#key); value type>key; r 

■EBOCEDUfi£-£ti£CJUQBQRf ILL M ESSlMlX f EJJiiUU 



integer alpha;* 
eal type#key; 



41000000 

4iiioioo 
-0.ui2nnn 



PROCEDURE 

PROCEDURE 
_PRU_C£nUR£. 



L8G0UTMAINTCB); VALUE 8; REAL Bj 
MAINTLOGGER(B); VALUE Bt REAL BJ 
PS UFPnLnSFMTBYtSTATS); 



41316000 

41327000 
41^0Q0QQ 



PROCEDURE 
PROCEDURE 



fillsystat; 
savestatisticscflle); 



JPRUCFnUiiE- MESSARET A BLFB U IlDF R f 



41401800 
4140S400 
4143Q< 



C2416 3 » - KEYIN PROCEDURE TO BE 
« PROCEDURE KEYING t D 
■ PHnrEDURE KEY 11*1 ■»(- 
» PROCEDURE KEY1N2 C 



)0Q0 







CALLED 

IRECT 

i R ECT 



CALL 



41450900 
41451000 
414.&1100 



2 

t 36* 123 m LABEL 
" 1 *» 77» » w » 



INDEPENDENT RUNNER ) 41451200 
NUMBER C SWITCH LOCATION IN PRaCEQljRE) 41451900 
**** END OF FIRST *EYIN PROCEDURE CALLS 4l 4b9?QQ 



«1**77** M * %**% END 

PROCEDURE ENTERSYSFILECN); VALUE NJ REA 
MJMAiUll^ALUL. A,M_AMAXjI 
ASR; BEGIN INTEGER I#0CNTR> ARRAY AIU*!* REAL TEMP;* 



PROCEDURE 
PROCEDURE 
SAVE REAL 
PROCEDURE.. 



OF SECOND KEYIN PROCEDURES 

L n; 

t*i; int eger n;% . 



41469900 
41600000 
42474000 



PROCEDURE COREND' FORWARD) 
.1 N lE-R R-U-P. linU.lL. MMMLJL ULL 



REAL LYJJLl 



PROCEDURE CLEANUPABQRT(A»DOD); VALUE A#DDO; A 
PROCEDURE INITIALIZEDCFILES CA»*BDD>LR); VALUE 
RROCEimJiE^JLfeHF I N I SH ( A A U 



RRAY DDDt*]J 

a*ddd#lrj 



REAL A; 



SAVE PROCEDURE MOREI M Tl ALl ZE JFORwAHO; 
SAVE PROCEDURE INITIALIZE* 

.M V-E-.PRaC-EHU.RE. .MDRF I M T I A 1. 1 ILi 

SAVE REAL PROCEDURE COREND;* 
PROCEDURE INTFlNISHCAA)iVALUE AAJREAL A 



a; 



42^82000 
425090QQ 

.4^^10000 



42600000 
42946000 
ft flQ0H998- 



44009000 
44010000 
44206450 



44441000 
45000000 



li 



29 

30 

31 ~ 
32 
33 

H" 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



• • 



LABFL OOOQOOOOOPRIMEHOOlOOOOOCC tX OB JEC T/KEYWQRD; F I LE SQURCEF ILE = SYMBOL/MCP;EnU*- 



OBJECT /KEYWORD 



? 

3 
4 
5 
6 

B 
9 
10 
11 
12 
13 
14 
15 
IB 
17 



19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 ' 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

46 

46 

»7 

«e 
49 

so 

61 
62 
63 
54 
56 
56 



